perm filename Q[4,KMC] blob sn#043947 filedate 1973-05-22 generic text, type T, neo UTF8
(DEFPROP EOF T SPECIAL) 

(DEFPROP FILE1 T SPECIAL) 

(DEFPROP FILE2 T SPECIAL) 

(DEFPROP SLASHIFY
 (LAMBDA (L)
  (PROG (&V &VV &L1 I)
        (SETQ &L1 L)
        (SETQ &V (SETQ &VV (LIST NIL)))
   LOOP (COND ((NULL &L1) (RETURN (CDR &V))))
        (SETQ I (CAR &L1))
        (SETQ &L1 (CDR &L1))
        (NCONC &VV (SETQ &VV (LIST (QUOTE //) I)))
        (GO LOOP)))
EXPR)